#!/usr/bin/Rscript

jpeg("custos_amazon_2013.jpg")

light <- function (x) 61 + 0.034*x
medium <- function (x) 139 + 0.021*x
high <- function (x) 169 + 0.014 * x




plot(light, xlim=c(0, 8760), col=c("blue"))
plot(medium, xlim=c(0, 8760), col=c("red"), add=TRUE)
plot(high, xlim=c(0, 8760), col=c("green"), add=TRUE)

legend("bottomright", title="Reservation market", c("Light", "Medium", "High"), fill=c("blue", "red", "green") )

abline(v=c(4285.714, 5400, 6000))

dev.off()
